home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 075 (1988-11-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 075 (1988-11-15)(Ossowski, Stefan)(DE)(PD).adf / c / n.Mod < prev    next >
Text File  |  1988-08-14  |  1KB  |  54 lines
  1. MODULE n; (* Geschrieben, compiliert und gelinkt mit M2Amiga PD-Programm *)
  2.           (* Teilweise sind Programmteile vom Demoprogramm enthalten. *)
  3.           (* Der Rest stammt von TAIFUN-Crew. *)
  4.           
  5. FROM SYSTEM    IMPORT ADR;
  6. FROM Intuition IMPORT DisplayAlert;
  7. FROM Terminal  IMPORT WriteString,WriteLn;
  8.  
  9. VAR
  10.   Cls : INTEGER;
  11.   al: RECORD
  12.   x1: INTEGER; s1: ARRAY [0..59] OF CHAR;
  13.   x2: INTEGER; s2: ARRAY [0..95] OF CHAR;
  14. END (* RECORD *); 
  15.  
  16. BEGIN
  17.  
  18.  FOR Cls := 0 TO 50 DO
  19.    WriteString("      *** T A I F U N ***   Die 75ste   T A I F U N - Disk.");
  20.    WriteLn;
  21.  END;
  22.  
  23.  FOR Cls := 0 TO 50 DO
  24.    WriteString("          Viele andere Public Domain Disketten erhalten Sie von:");
  25.    WriteLn;
  26.  END;
  27.    
  28.  FOR Cls := 0 TO 50 DO
  29.    WriteString("    Stefan Ossowski, Veronikastr. 33, 4300 Essen 1, Tel 0201/788778");
  30.    WriteLn;      
  31.  END;
  32.  
  33.  WriteLn;
  34.  WriteLn;
  35.  WriteLn;
  36.             
  37.  WriteString("      Hallo TAIFUN-User. ");
  38.  WriteLn;
  39.  WriteString("      Nun ist es soweit. Die 75ste TAIFUN ist fertig. ");
  40.  WriteLn;
  41.  WriteString("      Sie werden auf der Workbench mit vielen neuen Programmen erwartet.");
  42.  FOR Cls:= 0 TO 14 DO
  43.    WriteLn;
  44.  END ;
  45.  
  46.    al.s1:="*            T   A   I   F   U   N           7    5       ";
  47.    al.x1:=96; al.s1[0]:=CHAR(60); al.s1[59]:=CHAR(2);
  48.  
  49.    al.s2:="* Neue Programme gegen VIREN!!!   Drücke linke Maustaste für weiter!!!!";
  50.    al.x2:=24; al.s2[0]:=CHAR(100); al.s2[77]:=CHAR(1);
  51. IF DisplayAlert(0, ADR(al), 140) THEN END
  52.  
  53. END n.
  54.